unit UGras;

interface

uses SysUtils, Classes, UPictureName, UMapObjekte;

type
  TGras = class(TMapObject) // 1
  private
  public
    constructor Create(Id: integer); Override;
    function getCollisionAtPixel(Game:TObject;X, Y: integer): integer; Override;
  end;

implementation

{ TGras }

constructor TGras.Create(Id: integer);
begin
  self.Id := Id;
  self.Num := 1;
  FPictureName := b_Gras;
  self.affgravity := false;
end;

function TGras.getCollisionAtPixel(Game:TObject;X, Y: integer): integer;
begin
  //if (Y = 0) then begin
   // result := 0;
  //end else begin
    result := 1;
  //end;
end;

end.
